import runtest from "RunTest"

const toutstream <- object toutstream
  const myTest == runtest.create[stdin, stdout, nil]
  process
    % each test looks like myTest.check[<boolean expression>, "<same exp>"]
    stdout.PutChar['T']
    stdout.PutChar['\^J']
    stdout.PutInt[36, 0]
    stdout.PutChar['\^J']
    stdout.PutReal[99.87]
    stdout.PutChar['\^J']
    stdout.PutString["This is a string.\^J"]
    myTest.done
  end process
end toutstream
